vb中连接数据库``做学生管理系统的问题！急！！

来源：百度知道编辑：UC知道时间：2024/05/12 20:21:01

VB做学生管理系统的问题！请高手帮助！````
我做学生管理系统遇到一个问题在修改成绩一项中我用select语句想

查找条件为：成绩表学号=学生表中学号

再在学生信息表中查找相对应的姓名和学号

我想让成绩表里的学号是唯一的（一学号可以对应多个成绩）

我写的部分语句如下

这是在装入窗体里写的：
Private Sub Form_Load()

txtsql = Trim("select student_info.student_ID,student_info.student_Name from
student_info,result_info where student_info.student_ID = result_info.student_ID ") 这条就是我的条件语句

Set mrc = executesql(txtsql)
mrc.MoveFirst
Text1(0).Text = mrc.Fields(0)
Text1(1).Text = mrc.Fields(1)

end sub

这是在"下一个"里写的：
Private Sub Command2_Click()

mrc.MoveNext

If mrc.EOF Then
MsgBox "已经到了最后一个": mrc.MovePrevious
Else
Text1(0).Text = mrc.Fields(0)
Text1(1).Text = mrc.Fields(1)

End If

End Sub

我感觉我这么写是对的运行也是没错的可是运行出来它还是以成绩表中的学号为字段，我点“下一个” 因为学号取自成绩表所以我要按好几下才能把学号转到下一个

还有一个在做信息查询中我把查询的字段

1.你想要唯一的？加一个distinct

txtsql = Trim("select distinct student_info.student_ID,student_info.student_Name from
student_info,result_info where student_info.student_ID = result_info.student_ID ") 这条就是我的条件语句

2===================MSFlexGrid 用法

Private Sub Command1_Click()
With Me.MSFlexGrid1
.Cols = 5
.Rows = 3

Dim i As Long, j As Long

For i = 0 To .Rows - 1
For j = 0 To .Cols - 1
.TextMatrix(i, j) = i & " " & j
Next j
Next i
End With

用两个rs
一个对应学生表,外层循环
另一个对应成绩表,内层循环

看了你的问题，，好像，你现在有二个问题是吗？
一、我点“下一个” 因为学号取自成绩表所以我要按好几下才能把学号转到下一个（这个问题，我也不太明白，你到底需要什么效果或功能）
二、因为这是多条字段我不知道怎么把它全部显示在MSFlexGrid里我只会用（这个问题，你可以用循环解决呀，，其实一般我们都不喜欢用msflexgrid，而直接用listview1还实在些）

vb中连接数据库出错做一个学生成绩管理数据库怎么测试VB中数据库已经连接?学生信息管理系统,ListView里面不显示数据库的内容是原因啊??? 用vb做前台如何连接数据库如何在VB中连接access数据库 vb 连接sql数据库中recordset问题 vb中连接数据库的问题在VB中连接ACCESS数据库错误 VB中连接ACCESS数据库出现问题用vb做学生管理系统